Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/filbx2/progmenu.frm

Text File | 1995-05-08 | 2KB | 70 lines

VERSION 2.00
Begin Form ProgMenu
   Caption         =   "Your Nifty Program Goes Here"
   ClientHeight    =   3615
   ClientLeft      =   1095
   ClientTop       =   1740
   ClientWidth     =   7830
   Height          =   4305
   Icon            =   PROGMENU.FRX:0000
   Left            =   1035
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   3615
   ScaleWidth      =   7830
   Top             =   1110
   Width           =   7950
   Begin Label Label2
      BorderStyle     =   1  'Fixed Single
      Caption         =   """None"""
      Height          =   260
      Left            =   1080
      TabIndex        =   1
      Top             =   1440
      Width           =   4935
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Full pathname of file selected"
      Height          =   260
      Left            =   1800
      TabIndex        =   0
      Top             =   1080
      Width           =   3375
   End
   Begin Menu file_menu
      Caption         =   "&File"
      Begin Menu chooser
         Caption         =   "&Open File..."
      End
      Begin Menu say_by_by
         Caption         =   "E&xit"
      End
   End
   Begin Menu tell_me_tell_me_do
      Caption         =   "&About"
   End
End
Sub chooser_Click ()
   filebox.Show 1
End Sub

Sub Form_GotFocus ()
    label2.caption = WorkFile
End Sub

Sub Form_Load ()
    CRLF = Chr$(13) + Chr$(10)

End Sub

Sub say_by_by_Click ()
   End
End Sub

Sub tell_me_tell_me_do_Click ()
   about.Show
End Sub